home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / SpaceEscape •••• / SpaceEscape ееее / card_13840.txt < prev    next >
Text File  |  1990-10-02  |  2KB  |  102 lines
  1. -- card: 13840 from stack: in
  2. -- bmap block id: 20512
  3. -- flags: 4000
  4. -- background id: 8902
  5. -- name: hallway open button
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put "The label on this button is written in Droolish, which"& " you unfortunately cannot read." into field "info"
  9.   pass opencard
  10. end opencard
  11.  
  12.  
  13. -- part 2 (button)
  14. -- low flags: 00
  15. -- high flags: A003
  16. -- rect: left=161 top=302 right=323 bottom=192
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: OK
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   global filter
  28.   if filter is "yes" then
  29.     beep
  30.     exit mouseup
  31.   end if
  32.   global donteat
  33.   get bkgnd field "do what"
  34.   if the number of words in it > 1 then
  35.     beep 2
  36.     oneword
  37.     exit mouseup
  38.   end if
  39.   if it contains "examine" or it contains "look" then
  40.     send "opencard" to this card
  41.     exit mouseup
  42.   end if
  43.   if it contains "read" or it contains "translate" then
  44.     send "opencard" to this card
  45.     exit mouseup
  46.   end if
  47.   if it contains "push" or it contains "press" or it contains "hit"then
  48.   global doorhide
  49.   if doorhide is "closed" then
  50.     put "You push the button, and the hall door slides open.≈∏" into field "info"
  51.     global filter
  52.     put "yes" into filter
  53.     global doorhide
  54.     put "" into doorhide
  55.     exit mouseup
  56.   else
  57.     put "The hall door slides closed.≈∏" into field "info"
  58.     global filter
  59.     put "yes" into filter
  60.     global doorhide
  61.     put "closed" into doorhide
  62.     exit mouseup
  63.   end if
  64. end if
  65. if it contains "get" or it contains "move" then
  66.   put "The button is firmly attached to the wall." into field "info"
  67.   exit mouseup
  68. end if
  69. if it contains "eat" or it contains "consume" then
  70.   put donteat into field "info"
  71.   exit mouseup
  72. end if
  73. if it contains "go" then
  74.   put "You cannot go into the button.  Think about it." into field "info"
  75.   exit mouseup
  76. end if
  77. if it is "" then
  78.   put "Speak up.  I can't hear you." into field "info"
  79.   exit mouseup
  80. end if
  81. idunno
  82. end mouseUp
  83.  
  84. on cont
  85.   global filter
  86.   if filter is "yes" then
  87.     put "" into filter
  88.     go to card "hallway"
  89.     send "opencard" to card "hallway"
  90.   end if
  91. end cont
  92.  
  93.  
  94.  
  95.  
  96. -- part contents for background part 2
  97. ----- text -----
  98. What would you like to do with the button?
  99.  
  100. -- part contents for background part 7
  101. ----- text -----
  102. Button